#' Online rolling kurtosis
#'
#' @param period rolling window period
#' @param type type of kurtosis
#'
#' @return a stateful function
#' @export
#'
new_rollkurt <- function(period, type = c("G2", "quantile"))
{
  type = match.arg(type)
  switch(type,
         g2 = mk_online_func_x("rollkurt_G2", period),
         quantile = mk_online_func_x("rollkurt_quantile", period))
}
